68
|
I have a hierarchy and I need to filter only root items that match, with thier childs

Dim h
With AxComboBox1
.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
.FilterInclude = EXCOMBOBOXLib.FilterIncludeEnum.exRootsWithChilds
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exFilter
.Filter = "R1"
End With
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"C1")
.InsertItem(h,Nothing,"C2")
.ExpandItem(h) = True
h = .AddItem("R2")
.InsertItem(h,Nothing,"C1")
.InsertItem(h,Nothing,"C2")
End With
.ApplyFilter()
End With
|
66
|
I have a hierarchy and I need to filter only parent items that match, including thier childs

Dim h
With AxComboBox1
.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
.FilterInclude = EXCOMBOBOXLib.FilterIncludeEnum.exItemsWithChilds
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exFilter
.Filter = "R1"
End With
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"C1")
.InsertItem(h,Nothing,"C2")
.ExpandItem(h) = True
h = .AddItem("R2")
.InsertItem(h,Nothing,"C1")
.InsertItem(h,Nothing,"C2")
End With
.ApplyFilter()
End With
|
558
|
I do not like to specify the item padding for every column I add. The question is how can I do it automatically

With AxComboBox1
.BeginUpdate()
.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}")
.HeaderAppearance = EXCOMBOBOXLib.AppearanceEnum.Etched
.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exAllLines
.GridLineStyle = EXCOMBOBOXLib.GridLinesStyleEnum.exGridLinesVSolid
With .Columns
.Add("Item")
With .Add("Pos")
.Position = 0
.Width = 32
.AllowSizing = False
.FormatColumn = "1 index ``"
End With
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.EndUpdate()
End With
|
472
|
I cannot seem to get autosearch=1 (contains) in the column object to search properly. It still only finds items that start with the typed character. I want to it look to see if the typed character(s) are contained in the item. I Can't seem to get this to work

With AxComboBox1
.BeginUpdate()
.Style = EXCOMBOBOXLib.StyleEnum.DropDownList
.HeaderVisible = False
.AutoSearch = True
.AutoDropDown = True
.IntegralHeight = True
.Columns.Add("Default").AutoSearch = EXCOMBOBOXLib.AutoSearchEnum.exContains
With .Items
.AddItem("This is a bit of text")
.AddItem("This is a another text")
End With
.EndUpdate()
End With
|
94
|
I can't scroll to the end of the data. What can I do

With AxComboBox1
.ScrollBySingleLine = True
.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exRowLines
.Columns.Add("Column")
With .Items
.ItemHeight(.AddItem(0)) = 13
End With
.PutItems(.GetItems(0))
With .Items
.ItemHeight(.AddItem(1)) = 26
End With
.PutItems(.GetItems(0))
With .Items
.ItemHeight(.AddItem(2)) = 36
End With
.PutItems(.GetItems(0))
With .Items
.ItemHeight(.AddItem(3)) = 48
End With
.PutItems(.GetItems(0))
End With
|
469
|
I am using the ScrollWidth/ScrollHeight property on 0 to hide the control's scroll bars, the question is that the drop down button is disappearing. What can be done so I can still show the drop down button

With AxComboBox1
.BeginUpdate()
.LabelHeight = 40
.ScrollWidth = 0
.ScrollHeight = 0
.DropDownButtonWidth = 40
.EndUpdate()
End With
|
514
|
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

With AxComboBox1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarFont = .Font
.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
.FilterBarPromptPattern = "B"
.FilterBarPromptVisible = EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCompact Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
550
|
I am calling Value to change the selected value, but the selection is not visible, unless I scroll to it

Dim rs
With AxComboBox1
.BeginUpdate()
.ColumnAutoResize = False
rs = CreateObject("ADODB.Recordset")
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",1,1)
End With
.DataSource = rs
.Value = 10311
With .Items
.EnsureVisibleItem(.FocusItem)
End With
.EndUpdate()
End With
|
146
|
I've seen that you can change the visual appearance for the scroll bar. How can I do that

With AxComboBox1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
.set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exSBtn,16777216)
.set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exSBtnP,33554432)
.set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exSBtnH,50331648)
.set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exHSBack,15790320)
.set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exVSBack,15790320)
.set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exScrollHoverAll Or EXCOMBOBOXLib.BackgroundPartEnum.exDateScrollThumb,15790320)
.Columns.Add("S").Width = 32
.Columns.Add("Level 1").LevelKey = 1
.Columns.Add("Level 2").LevelKey = 1
.Columns.Add("Level 3").LevelKey = 1
.Columns.Add("E1").Width = 32
.Columns.Add("E2").Width = 32
.Columns.Add("E3").Width = 32
.Columns.Add("E4").Width = 32
.ColumnAutoResize = False
End With
|
119
|
I've seen that the width of the tooltip is variable. Can I make it larger

With AxComboBox1
.ToolTipWidth = 328
.Columns.Add("tootip").ToolTip = "this is a tooltip that should be very very very very very very very long"
End With
|
2
|
I've added a single column, but it is displayed only on a part of the control. Is there something I can do so the column will be fully displayed on the control

With AxComboBox1
.Columns.Add("ColumnName")
.Items.AddItem("Item 1")
.Items.AddItem("Item 2")
End With
|
473
|
How would you clear the displayed selection for style DropDownList. So if a user selects or searches a value in a style DropDownList, I want to know if I can reset the control back to an empty selection

' DropUp event - Occurs when the drop-down portion of the control is hidden.
Private Sub AxComboBox1_DropUp(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxComboBox1.DropUp
With AxComboBox1
.Value = ""
End With
End Sub
' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxComboBox1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxComboBox1.SelectionChanged
With AxComboBox1
Debug.Print( "You selected: " )
Debug.Print( .Value )
End With
End Sub
With AxComboBox1
.BeginUpdate()
.Style = EXCOMBOBOXLib.StyleEnum.DropDownList
.HeaderVisible = False
.AutoSearch = True
.AutoDropDown = True
.IntegralHeight = True
.Columns.Add("Default").AutoSearch = EXCOMBOBOXLib.AutoSearchEnum.exContains
With .Items
.AddItem("This is a bit of text")
.AddItem("This is a another text")
.DefaultItem = .InsertItem(Nothing,Nothing,"")
.ItemPosition(0) = 0
.SortableItem(0) = False
End With
.EndUpdate()
End With
|
560
|
How I can programmatically select a row (with regular combobox I can set the ListIndex right up to Listcount -1)

With AxComboBox1
.BeginUpdate()
.Columns.Add("Column")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.SelectItem(.ItemByIndex(1)) = True
End With
.EndUpdate()
End With
|
561
|
How I can programmatically select a row (method 2)

With AxComboBox1
.BeginUpdate()
.Columns.Add("Column")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
End With
.Value = "Item 2"
.EndUpdate()
End With
|
88
|
How do lock / fix some columns to the control, so I can see them all the time, event if I scroll the columns

With AxComboBox1
.CountLockedColumns = 1
.BackColorLock = RGB(240,240,240)
.ColumnAutoResize = False
.Columns.Add("Locked").Width = 128
.Columns.Add("Un-Locked 1").Width = 128
.Columns.Add("Un-Locked 2").Width = 128
.Columns.Add("Un-Locked 3").Width = 128
With .Items
.CellCaption(.AddItem("locked"),1) = "unlocked"
End With
End With
|
299
|
How do I vertically align a cell

Dim h
With AxComboBox1
.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exRowLines
.Columns.Add("MultipleLine").Def(EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine) = False
.Columns.Add("VAlign")
With .Items
h = .AddItem("This is a bit of long text that should break the line")
.CellCaption(h,1) = "top"
.CellVAlignment(h,1) = EXCOMBOBOXLib.VAlignmentEnum.exTop
h = .AddItem("This is a bit of long text that should break the line")
.CellCaption(h,1) = "middle"
.CellVAlignment(h,1) = EXCOMBOBOXLib.VAlignmentEnum.exMiddle
h = .AddItem("This is a bit of long text that should break the line")
.CellCaption(h,1) = "bottom"
.CellVAlignment(h,1) = EXCOMBOBOXLib.VAlignmentEnum.exBottom
End With
End With
|
84
|
How do I use my own icons for my radio buttons

With AxComboBox1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.set_RadioImage(False,1)
.set_RadioImage(True,2)
.Columns.Add("Radio").Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasRadioButton) = True
With .Items
.AddItem("Radio 1")
.CellState(.AddItem("Radio 2"),0) = 1
.AddItem("Radio 3")
End With
End With
|
83
|
How do I use my own icons for checkbox cells

With AxComboBox1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.set_CheckImage(EXCOMBOBOXLib.CheckStateEnum.Unchecked,1)
.set_CheckImage(EXCOMBOBOXLib.CheckStateEnum.Checked,2)
.Columns.Add("Check").Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
With .Items
.AddItem("Check 1")
.CellState(.AddItem("Check 2"),0) = 1
End With
End With
|
479
|
How do I unselect/deselect the item (Simple style)
With AxComboBox1
.BeginUpdate()
.Style = EXCOMBOBOXLib.StyleEnum.Simple
.Columns.Add("Def")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 3")
End With
.SearchColumnIndex = 0
.Value = "Item 2"
With .Items
.SelectItem(.FocusItem) = False
End With
.EndUpdate()
End With
|
478
|
How do I unselect/deselect the item (DropDownList style)
With AxComboBox1
.BeginUpdate()
.Style = EXCOMBOBOXLib.StyleEnum.DropDown
.Columns.Add("Def")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 3")
End With
.SearchColumnIndex = 0
.Value = "Item 2"
With .Items
.SelectItem(.FocusItem) = False
End With
.EndUpdate()
End With
|
477
|
How do I unselect/deselect the item (DropDown style)
With AxComboBox1
.BeginUpdate()
.Style = EXCOMBOBOXLib.StyleEnum.DropDown
.Columns.Add("Def")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 3")
End With
.SearchColumnIndex = 0
.Value = "Item 2"
With .Items
.SelectItem(.FocusItem) = False
End With
.EndUpdate()
End With
|
288
|
How do I unselect an item

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
.SelectItem(h) = False
End With
End With
|
155
|
How do I underline the numbers greater than a value

With AxComboBox1
.ConditionalFormats.Add("%0 >= 10").Underline = True
.Columns.Add("Numbers")
.Items.AddItem(1)
.Items.AddItem(2)
.Items.AddItem(10)
.Items.AddItem(20)
End With
|
244
|
How do I underline an item

With AxComboBox1
.Columns.Add("Default")
With .Items
.ItemUnderline(.AddItem("underline")) = True
End With
End With
|
245
|
How do I underline a cell or an item

With AxComboBox1
.Columns.Add("Default")
With .Items
.CellCaptionFormat(.AddItem("gets <u>underline</u> only a portion of text"),0) = EXCOMBOBOXLib.CaptionFormatEnum.exHTML
End With
End With
|
246
|
How do I underline a cell

With AxComboBox1
.Columns.Add("Default")
With .Items
.CellUnderline(.AddItem("underline"),0) = True
End With
End With
|
325
|
How do I turn off the auto complete feature

With AxComboBox1
.AutoComplete = False
.Columns.Add("Column")
With .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
End With
End With
|
328
|
How do I specify the width of the drop down window

With AxComboBox1
.set_WidthList(,100)
.AllowSizeGrip = True
.Columns.Add("Column")
With .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
End With
End With
|
327
|
How do I specify the minimum width of the drop down window

With AxComboBox1
.MinWidthList = 100
.AllowSizeGrip = True
.Columns.Add("Column")
With .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
End With
End With
|
329
|
How do I specify the minimum height of the drop down window

With AxComboBox1
.MinHeightList = 100
.AllowSizeGrip = True
.Columns.Add("Column")
With .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
End With
End With
|
92
|
How do I specify the indentation of the child items relative to their parents

Dim h
With AxComboBox1
.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot
.Indent = 11
.Columns.Add("Column")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child")
End With
End With
|
330
|
How do I specify the height of the drop down window

With AxComboBox1
.set_HeightList(,400)
.MinWidthList = 100
.AllowSizeGrip = True
.Columns.Add("Column")
With .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
End With
End With
|
338
|
How do I specify the height of the control's label

With AxComboBox1
.LabelHeight = 34
.Columns.Add("Column")
With .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
End With
End With
|
93
|
How do I specify the column where the tree lines / hierarchy are shown

Dim h
With AxComboBox1
.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot
.TreeColumnIndex = 1
.Columns.Add("Column 1")
.Columns.Add("Column 2")
With .Items
h = .AddItem("Root 1.1")
.CellCaption(h,1) = "Root 1.2"
.CellCaption(.InsertItem(h,Nothing,"Child 1.1"),1) = "Child 1.2"
.CellCaption(.InsertItem(h,Nothing,"Child 2.1"),1) = "Child 2.2"
.ExpandItem(h) = True
h = .AddItem("Root 2.1")
.CellCaption(h,1) = "Root 2.2"
.CellCaption(.InsertItem(h,Nothing,"Child 1.1"),1) = "Child 1.2"
End With
End With
|
483
|
How do I sort the index column as numeric

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub AxComboBox1_InsertItem(ByVal sender As System.Object, ByVal e As AxEXCOMBOBOXLib._IComboBoxEvents_InsertItemEvent) Handles AxComboBox1.InsertItem
With AxComboBox1
With .Items
.CellData(e.item,1) = .ItemToIndex(e.item)
End With
End With
End Sub
With AxComboBox1
.BeginUpdate()
.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exAllLines
.ColumnAutoResize = True
.ShowFocusRect = False
.SingleEdit = True
With .Columns.Add("Next")
.Def(EXCOMBOBOXLib.DefColumnEnum.exCellPaddingLeft) = 4
.Def(EXCOMBOBOXLib.DefColumnEnum.exHeaderPaddingLeft) = 4
End With
With .Columns.Add("Index")
.AllowSizing = False
.Width = 48
.FormatColumn = "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
.Def(EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat) = 1
.SortType = EXCOMBOBOXLib.SortTypeEnum.SortUserData
.Position = 0
End With
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 4")
.AddItem("Item 5")
.AddItem("Item 6")
.AddItem("Item 7")
.AddItem("Item 8")
.AddItem("Item 9")
.AddItem("Item 10")
End With
.EndUpdate()
End With
|
229
|
How do I sort the child items

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
.SortChildren(h,0,False)
End With
End With
|
79
|
How do I sort descending a column, and put the sorting icon in the column's header

With AxComboBox1
.Columns.Add("Column")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
End With
.Columns.Item(0).SortOrder = EXCOMBOBOXLib.SortOrderEnum.SortDescending
End With
|
78
|
How do I sort ascending a column, and put the sorting icon in the column's header

With AxComboBox1
.Columns.Add("Column")
With .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
End With
.Columns.Item(0).SortOrder = EXCOMBOBOXLib.SortOrderEnum.SortAscending
End With
|
72
|
How do I sort a column by numbers

With AxComboBox1
.Columns.Add("desc").SortType = EXCOMBOBOXLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(5)
.AddItem(10)
.SortChildren(0,0,False)
End With
End With
|
116
|
How do I show the tooltip quicker

With AxComboBox1
.ToolTipDelay = 1
.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
|
181
|
How do I show or hide the sorting icons, but still need sorting

With AxComboBox1
.Columns.Add("Sorted").SortOrder = EXCOMBOBOXLib.SortOrderEnum.SortAscending
.Columns.Item(0).DisplaySortIcon = False
End With
|
194
|
How do I show buttons for all cells in the column

With AxComboBox1
With .Columns.Add("Button")
.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasButton) = True
.Def(EXCOMBOBOXLib.DefColumnEnum.exCellButtonAutoWidth) = True
End With
.Items.AddItem(" Button 1 ")
.Items.AddItem(" Button 2 ")
End With
|
193
|
How do I show buttons for all cells in the column

With AxComboBox1
.Columns.Add("Button").Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasButton) = True
.Items.AddItem(0)
.Items.AddItem(1)
End With
|
109
|
How do I show alternate rows in different background color

With AxComboBox1
.BackColorAlternate = RGB(240,240,240)
.Columns.Add("Column")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 4")
.AddItem("Item 5")
End With
End With
|
559
|
How do I set an extra data for each item
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxComboBox1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXCOMBOBOXLib._IComboBoxEvents_MouseMoveEvent) Handles AxComboBox1.MouseMoveEvent
Dim c,hit,i
With AxComboBox1
i = .get_ItemFromPoint(-1,-1,c,hit)
Debug.Print( i )
Debug.Print( .Items.ItemData(i) )
End With
End Sub
With AxComboBox1
.BeginUpdate()
.Columns.Add("Default")
With .Items
.ItemData(.AddItem("method 1")) = "your extra data of method 1"
.InsertItem(0,"your extra data of method 2","method 2")
End With
With .Items
.DefaultItem = .AddItem("method 3")
.ItemData(0) = "your extra data of method 3"
End With
.EndUpdate()
End With
|
286
|
How do I select an item

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
.SelectItem(h) = True
End With
End With
|
347
|
How do I select a value

Dim h
With AxComboBox1
.IntegralHeight = True
.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot
.TreeColumnIndex = 1
.Columns.Add("Column 1")
.Columns.Add("Column 2")
With .Items
h = .AddItem("Root 1.1")
.CellCaption(h,1) = "Root 1.2"
.CellCaption(.InsertItem(h,Nothing,"Child 1.1"),1) = "Child 1.2"
.CellCaption(.InsertItem(h,Nothing,"Child 2.1"),1) = "Child 2.2"
.ExpandItem(h) = True
h = .AddItem("Root 2.1")
.CellCaption(h,1) = "Root 2.2"
.CellCaption(.InsertItem(h,Nothing,"Child 1.1"),1) = "Child 1.2"
End With
.set_Select(1,"Root 1.2")
End With
|
348
|
How do I select a value

Dim h
With AxComboBox1
.IntegralHeight = True
.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot
.TreeColumnIndex = 1
.Columns.Add("Column 1")
.Columns.Add("Column 2")
With .Items
h = .AddItem("Root 1.1")
.CellCaption(h,1) = "Root 1.2"
.CellCaption(.InsertItem(h,Nothing,"Child 1.1"),1) = "Child 1.2"
.CellCaption(.InsertItem(h,Nothing,"Child 2.1"),1) = "Child 2.2"
.ExpandItem(h) = True
h = .AddItem("Root 2.1")
.CellCaption(h,1) = "Root 2.2"
.CellCaption(.InsertItem(h,Nothing,"Child 1.1"),1) = "Child 1.2"
End With
.Value = "Root 1.1"
End With
|
466
|
How do I select a NULL/empty value

With AxComboBox1
.BeginUpdate()
.Style = EXCOMBOBOXLib.StyleEnum.DropDownList
.Columns.Add("Items")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 4")
.DefaultItem = .InsertItem(Nothing,Nothing,"")
.ItemPosition(0) = 0
.SortableItem(0) = False
End With
.Value = ""
.EndUpdate()
End With
|
114
|
How do I search case sensitive, using your incremental search feature

With AxComboBox1
.AutoSearch = True
.ASCIILower = ""
With .Columns
.Add("exStartWith").AutoSearch = EXCOMBOBOXLib.AutoSearchEnum.exStartWith
.Add("exContains").AutoSearch = EXCOMBOBOXLib.AutoSearchEnum.exContains
End With
With .Items
.CellCaption(.AddItem("text"),1) = "another text"
End With
With .Items
.CellCaption(.AddItem("text"),1) = "another text"
End With
End With
|
262
|
How do I retrieve the focused item

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
.ItemBold(.FocusItem) = True
End With
End With
|
345
|
How do I remove the drop down's border

With AxComboBox1
.DropDownBorder = EXCOMBOBOXLib.AppearanceEnum.None2
End With
|
69
|
How do I remove the control's border

With AxComboBox1
.Appearance = EXCOMBOBOXLib.AppearanceEnum.None2
End With
|
451
|
How do I prevent scrolling the control's data after user does the sort

With AxComboBox1
.EnsureOnSort = False
.Columns.Add("Column")
With .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
End With
.PutItems(.GetItems(0))
.PutItems(.GetItems(0))
.PutItems(.GetItems(0))
.Columns.Item(0).SortOrder = EXCOMBOBOXLib.SortOrderEnum.SortAscending
End With
|
585
|
How do I prevent changing the cell's state ( check-box state )
' CellStateChanging event - Fired before cell's state is about to be changed.
Private Sub AxComboBox1_CellStateChanging(ByVal sender As System.Object, ByVal e As AxEXCOMBOBOXLib._IComboBoxEvents_CellStateChangingEvent) Handles AxComboBox1.CellStateChanging
With AxComboBox1
With .Items
e.newState = .CellState(Nothing,e.cell)
End With
End With
End Sub
Dim h
With AxComboBox1
.BeginUpdate()
.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("P1")
.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
With .Columns.Add("P2")
.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
With .Items
h = .AddItem("Root")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
77
|
How do I perform my own/custom sort, using my extra strings

With AxComboBox1
.Columns.Add("desc").SortType = EXCOMBOBOXLib.SortTypeEnum.SortUserData
With .Items
.CellData(.AddItem("A"),0) = "C"
.CellData(.AddItem("B"),0) = "B"
.CellData(.AddItem("C"),0) = "A"
.SortChildren(0,0,False)
End With
End With
|
76
|
How do I perform my own/custom sort, using my extra numbers

With AxComboBox1
.Columns.Add("desc").SortType = EXCOMBOBOXLib.SortTypeEnum.SortUserData
With .Items
.CellData(.AddItem(0),0) = 2
.CellData(.AddItem(1),0) = 1
.CellData(.AddItem(2),0) = 0
.SortChildren(0,0,False)
End With
End With
|
82
|
How do I perform my own sorting when user clicks the column's header

With AxComboBox1
.SortOnClick = EXCOMBOBOXLib.SortOnClickEnum.exUserSort
.Columns.Add("Column")
.Items.AddItem("Item 1")
.Items.AddItem("Item 2")
End With
|
334
|
How do I lock or make read-only the control

With AxComboBox1
.Locked = True
.Columns.Add("Column")
With .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
End With
End With
|
331
|
How do I let user to resize the drop down window, at runtime

With AxComboBox1
.AllowSizeGrip = True
.Columns.Add("Column")
With .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
End With
End With
|
332
|
How do I let user to resize only the width of the drop down window, at runtime

With AxComboBox1
.AllowSizeGrip = True
.AllowVResize = False
.Columns.Add("Column")
With .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
End With
End With
|
333
|
How do I let user to resize only the height of the drop down window, at runtime

With AxComboBox1
.AllowSizeGrip = True
.AllowHResize = False
.MinWidthList = 100
.MinHeightList = 100
.Columns.Add("Column")
With .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
End With
End With
|
117
|
How do I let the tooltip being displayed longer

With AxComboBox1
.ToolTipPopDelay = 10000
.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
|
153
|
How do I highlight in italic the numbers greater than a value

With AxComboBox1
.ConditionalFormats.Add("%0 >= 10").Italic = True
.Columns.Add("Numbers")
.Items.AddItem(1)
.Items.AddItem(2)
.Items.AddItem(10)
.Items.AddItem(20)
End With
|
154
|
How do I highlight in italic the numbers greater than a value

With AxComboBox1
.ConditionalFormats.Add("%0 >= 10").StrikeOut = True
.Columns.Add("Numbers")
.Items.AddItem(1)
.Items.AddItem(2)
.Items.AddItem(10)
.Items.AddItem(20)
End With
|
152
|
How do I highlight in bold the numbers greater than a value

With AxComboBox1
.ConditionalFormats.Add("%0 >= 10").Bold = True
.Columns.Add("Numbers")
.Items.AddItem(1)
.Items.AddItem(2)
.Items.AddItem(10)
.Items.AddItem(20)
End With
|
71
|
How do I hide the control's header bar

With AxComboBox1
.HeaderVisible = False
End With
|
258
|
How do I get the parent item

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
.ItemBold(.ItemParent(.ItemChild(h))) = True
End With
End With
|
232
|
How do I get the number or count of items

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
End With
With .Items
.AddItem(.ItemCount)
End With
End With
|
261
|
How do I get the number or count of child items

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
.AddItem(.ChildCount(h))
End With
End With
|
339
|
How do I get the handle of the drop down window

With AxComboBox1
.Columns.Add(AxComboBox1.hWndDropDown)
End With
|
263
|
How do I get the handle of the cell

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
.CellBold(Nothing,.ItemCell(h,0)) = True
End With
End With
|
257
|
How do I get the first child item

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
.ItemBold(.ItemChild(h)) = True
End With
End With
|
486
|
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel

Dim h
With AxComboBox1
.BeginUpdate()
With .Columns.Add("Date")
.SortType = EXCOMBOBOXLib.SortTypeEnum.SortDate
.DisplayFilterButton = True
.DisplayFilterPattern = False
.DisplayFilterDate = True
.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsDesc
End With
With .Columns.Add("DateTime")
.SortType = EXCOMBOBOXLib.SortTypeEnum.SortDateTime
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsDesc
End With
With .Columns.Add("Time")
.SortType = EXCOMBOBOXLib.SortTypeEnum.SortTime
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsDesc
.FormatColumn = "time(value)"
End With
With .Columns.Add("Numeric")
.SortType = EXCOMBOBOXLib.SortTypeEnum.SortNumeric
.DisplayFilterButton = True
.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsDesc
End With
With .Columns.Add("String")
.DisplayFilterButton = True
.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsDesc
End With
With .Items
h = .AddItem(#1/27/2010#)
.CellCaption(h,1) = #1/27/2010 10:00:00 AM#
.CellCaption(h,2) = .CellCaption(h,1)
.CellCaption(h,3) = 1
.CellCaption(h,4) = .CellCaption(h,3)
h = .AddItem(#1/27/2011#)
.CellCaption(h,1) = #1/27/2011 9:00:00 AM#
.CellCaption(h,2) = .CellCaption(h,1)
.CellCaption(h,3) = 11
.CellCaption(h,4) = .CellCaption(h,3)
h = .AddItem(#11/2/2010#)
.CellCaption(h,1) = #11/2/2010 9:00:00 AM#
.CellCaption(h,2) = .CellCaption(h,1)
.CellCaption(h,3) = 2
.CellCaption(h,4) = .CellCaption(h,3)
End With
.Columns.Item("DateTime").DisplayFilterDate = False
.EndUpdate()
End With
|
96
|
How do I get ride of the rectangle arround focused item

With AxComboBox1
.ShowFocusRect = False
.Columns.Add("Column")
.Items.AddItem(0)
.Items.AddItem(1)
End With
|
470
|
How do I get notified once the user changes the Filter For field
' EditChange event - Fired when the user has taken an action that may have altered text in an edit control.
Private Sub AxComboBox1_EditChange(ByVal sender As System.Object, ByVal e As AxEXCOMBOBOXLib._IComboBoxEvents_EditChangeEvent) Handles AxComboBox1.EditChange
With AxComboBox1
Debug.Print( "ColIndex: " )
Debug.Print( e.colIndex )
Debug.Print( "Label: " )
Debug.Print( .get_EditText(0) )
Debug.Print( "FilterFor: " )
Debug.Print( .get_EditText(-1) )
End With
End Sub
With AxComboBox1
.BeginUpdate()
.FilterForVisible = True
.FilterForBackColor = RGB(240,240,240)
.IntegralHeight = True
.Columns.Add("Default")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 4")
.AddItem("Item 5")
End With
.EndUpdate()
End With
|
547
|
How do I get a list of interfaces the object implemenets

Dim rs
With AxComboBox1
.BeginUpdate()
.ColumnAutoResize = False
With CreateObject("DAO.DBEngine.120")
rs = .OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb").OpenRecordset("Orders")
End With
Debug.Print( CreateObject("Exontrol.PropertiesList").Interfaces(rs).Interfaces(rs) )
.DataSource = rs
.Value = 10248
.EndUpdate()
End With
|
287
|
How do I find the selected item

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
.SelectItem(h) = True
.ItemBold(.SelectedItem(0)) = True
End With
End With
|
294
|
How do I find the index of the item based on its handle

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
.ItemBold(.ItemByIndex(.ItemToIndex(h))) = True
End With
End With
|
293
|
How do I find the handle of the item based on its index

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
.ItemBold(.ItemByIndex(1)) = True
End With
End With
|
297
|
How do I find an item based on a path

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.ItemData(.InsertItem(h,Nothing,"Child 2")) = 1234
.ExpandItem(h) = True
.ItemBold(.FindPath("Root 1\Child 1")) = True
End With
End With
|
296
|
How do I find an item

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
.ItemBold(.FindItem("Child 2",0)) = True
End With
End With
|
107
|
How do I filter programatically the control

With AxComboBox1
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exPattern
.Filter = "Item*"
End With
.Items.AddItem("Item 1")
.Items.AddItem("")
.Items.AddItem("Item 2")
.ApplyFilter()
End With
|
63
|
How do I filter for items that match exactly the specified string

With AxComboBox1
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exFilter
.Filter = "Item 1"
End With
.Items.AddItem("Item 1")
.Items.AddItem("Item 2")
.Items.AddItem("Item 3")
.ApplyFilter()
End With
|
234
|
How do I expand or collapse an item

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
End With
End With
|
123
|
How do I expand automatically the items while user types characters to searching for something ( incremental searching )

With AxComboBox1
.ExpandOnSearch = True
.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
.AutoSearch = True
.Columns.Add("Column").AutoSearch = EXCOMBOBOXLib.AutoSearchEnum.exContains
With .Items
.InsertItem(.InsertItem(.AddItem("text"),Nothing,"some text"),Nothing,"another text")
.InsertItem(.InsertItem(.AddItem("text"),Nothing,"some text"),Nothing,"another text")
End With
End With
|
260
|
How do I enumerate the visible items

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
h = .AddItem("Root 2")
.ItemBold(.FirstVisibleItem) = True
.ItemBold(.NextVisibleItem(.FirstVisibleItem)) = True
End With
End With
|
259
|
How do I enumerate the siblings items

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
h = .AddItem("Root 2")
.ItemBold(.NextSiblingItem(.FirstVisibleItem)) = True
.ItemBold(.PrevSiblingItem(.NextSiblingItem(.FirstVisibleItem))) = True
End With
End With
|
256
|
How do I enumerate the root items

Dim h
With AxComboBox1
.Columns.Add("Default")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ItemBold(.RootItem(0)) = True
.ItemUnderline(.RootItem(1)) = True
End With
End With
|
40
|
How do I ensure that the focused item is visible, after the user does the sort

With AxComboBox1
.EnsureOnSort = True
.Columns.Add("Column")
With .Items
.AddItem("Item 3")
.AddItem("Item 1")
.AddItem("Item 2")
End With
.PutItems(.GetItems(0))
.PutItems(.GetItems(0))
.PutItems(.GetItems(0))
.Columns.Item(0).SortOrder = EXCOMBOBOXLib.SortOrderEnum.SortAscending
End With
|
108
|
How do I enlarge the drop down filter window

With AxComboBox1
.FilterBarDropDownHeight = "-320"
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterBarDropDownWidth = "-320"
End With
.Items.AddItem("Item 1")
.Items.AddItem("Item 2")
End With
|
165
|
How do I enlarge or change the size of the control's scrollbars

With AxComboBox1
.ScrollHeight = 18
.ScrollWidth = 18
.ScrollButtonWidth = 18
.ScrollButtonHeight = 18
End With
|
112
|
How do I enable the incremental search feature within a column

With AxComboBox1
.AutoSearch = True
With .Columns
.Add("exStartWith").AutoSearch = EXCOMBOBOXLib.AutoSearchEnum.exStartWith
.Add("exContains").AutoSearch = EXCOMBOBOXLib.AutoSearchEnum.exContains
End With
With .Items
.CellCaption(.AddItem("text"),1) = "another text"
End With
With .Items
.CellCaption(.AddItem("text"),1) = "another text"
End With
End With
|
138
|
How do I enable resizing the columns at runtime

With AxComboBox1
.ColumnsAllowSizing = True
.MarkSearchColumn = False
.HeaderVisible = False
.Columns.Add("Column 1")
.Columns.Add("Column 2")
.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exVLines
With .Items
.CellCaption(.AddItem("Item 1"),1) = "Sub Item 1"
End With
With .Items
.CellCaption(.AddItem("Item 2"),1) = "Sub Item 2"
End With
End With
|
351
|
How do I enable resizing all the items at runtime

With AxComboBox1
.ItemsAllowSizing = EXCOMBOBOXLib.ItemsAllowSizingEnum.exResizeAllItems
.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exHLines
.Columns.Add("Column")
.Items.AddItem("Item 1")
With .Items
.ItemHeight(.AddItem("Item 2")) = 48
End With
.Items.AddItem("Item 3")
End With
|
137
|
How do I enable resizing ( changing the height ) the items at runtime

With AxComboBox1
.ItemsAllowSizing = EXCOMBOBOXLib.ItemsAllowSizingEnum.exResizeItem
.ScrollBySingleLine = True
.Columns.Add("Column")
.Items.AddItem("Item 1")
With .Items
.ItemHeight(.AddItem("Item 2")) = 48
End With
.Items.AddItem("Item 3")
End With
|
180
|
How do I enable or disable the entire column

With AxComboBox1
.Columns.Add("C1")
.Columns.Add("Disabled").Enabled = False
With .Items
.CellCaption(.AddItem(0),1) = "0.1"
End With
With .Items
.CellCaption(.AddItem(1),1) = "1.1"
End With
End With
|
268
|
How do I enable or disable a cell

Dim h
With AxComboBox1
.Columns.Add("C1")
.Columns.Add("C2")
With .Items
h = .AddItem("Cell 1")
.CellCaption(h,1) = "Cell 2"
.CellEnabled(h,1) = False
End With
End With
|
553
|
How do I display the position of the item with 0-padding

With AxComboBox1
.BeginUpdate()
.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. ` + value"
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
.AddItem("Item D")
End With
.EndUpdate()
End With
|
349
|
How do I display the icons being selected in the control's label

With AxComboBox1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Columns.Add("Column")
With .Items
.CellImage(.AddItem("Image 1"),0) = 1
.CellImage(.AddItem("Image 2"),0) = 2
.CellImage(.AddItem("Image 3"),0) = 3
End With
.set_AssignEditImageOnSelect(0,True)
.Value = "Image 2"
End With
|